home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Ascii-Ansi / Iff->Ascii-V1,4.LHA / ilbm2ascii-1.4 / ilbm2ascii.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-06-22  |  3.9 KB  |  171 lines
  1. /*
  2.  *  ILBM->ASCII.C
  3.  *
  4.  *  Taken from IFF2ASCII.AMOS (c)1994 Matthew Stratfold M.P.Stratfold@open.ac.uk
  5.  *  Improved by Tobias Ferber on Thu Mar 24 04:39:58 1994, ukjg@rz.uni-karlsruhe.de
  6.  *
  7.  *  The Conversion Table is inspired by Jorn Barger's alt.ascii-art FAQ
  8.  *  which had the table by Rob Harley(robert@vlsi.cs.caltech.edu) in it.
  9.  *
  10.  *  This program is BeerWare - if you like it go and buy yourself a beer :-)
  11.  */
  12.  
  13. #include "iffp/ilbmapp.h"
  14. #include <stdio.h>
  15.  
  16. static char rcs_id[]= "$VER: $Id: ilbm2ascii.c,v 1.4 1994/06/15 20:43:46 tf Exp $";
  17.  
  18. void buythefarm(UBYTE *why, int how);
  19. int point(struct BitMap *bm, short x, short y);
  20. void PrBitMapASCII(FILE *fp, struct BitMap *bm);
  21.  
  22. /* System */
  23.  
  24. struct Library *GfxBase        = NULL;
  25. struct Library *IFFParseBase   = NULL;
  26.  
  27. /* ILBM frame */
  28. struct ILBMInfo ilbm = {0};
  29.  
  30. /* ILBM Property chunks to be grabbed - only BMHD needed for this app */
  31. LONG ilbmprops[] = { ID_ILBM, ID_BMHD, TAG_DONE };
  32.  
  33. /* ILBM Collection chunks (more than one in file) to be gathered */
  34. LONG *ilbmcollects = NULL;    /* none needed for this app */
  35.  
  36. /* ILBM Chunk to stop on */
  37. LONG ilbmstops[] = { ID_ILBM, ID_BODY, TAG_DONE };
  38.  
  39.  
  40. void main(int argc, char **argv)
  41. {
  42.   char *fname;
  43.   long err;
  44.  
  45.   if(argc != 2 || argv[argc-1][0]=='?')
  46.   {
  47.     fprintf(stderr,"usage: %s ilbm-file  > ascii-file\n", argv[0]);
  48.     exit(0);
  49.   }
  50.  
  51.   fname= argv[1];
  52.  
  53.   /* Open Libraries */
  54.  
  55.   if(!(GfxBase = OpenLibrary("graphics.library",0)))
  56.     buythefarm("Can't open graphics library",RETURN_WARN);
  57.  
  58.   if(!(IFFParseBase = OpenLibrary("iffparse.library",0)))
  59.     buythefarm("Can't open iffparse library",RETURN_WARN);
  60.  
  61.   ilbm.ParseInfo.propchks    = ilbmprops;
  62.   ilbm.ParseInfo.collectchks    = ilbmcollects;
  63.   ilbm.ParseInfo.stopchks    = ilbmstops;
  64.  
  65.   /* Alloc IFF handle for frame */
  66.  
  67.   if(!(ilbm.ParseInfo.iff = AllocIFF()))
  68.     buythefarm("Not enough memory!", RETURN_FAIL );
  69.     /*buythefarm( IFFErr(IFFERR_NOMEM), RETURN_FAIL );*/
  70.  
  71.   if( err= loadbrush(&ilbm,fname) )
  72.   {
  73.     fprintf(stderr,"Can't load ILBM `%s'\n",fname,IFFerr(err));
  74.     buythefarm("stop.",RETURN_WARN);
  75.   }
  76.   else /* Successfully loaded ILBM */
  77.   {
  78.     PrBitMapASCII( stdout, ilbm.brbitmap );
  79.     unloadbrush(&ilbm);
  80.   }
  81.   buythefarm("done.",RETURN_OK);
  82. }
  83.  
  84.  
  85. void buythefarm(UBYTE *why, int how)
  86. {
  87.   fprintf(stderr,"%s\n",why);
  88.  
  89.   if(ilbm.ParseInfo.iff)  FreeIFF(ilbm.ParseInfo.iff);
  90.   if(IFFParseBase)        CloseLibrary(IFFParseBase);
  91.   if(GfxBase)             CloseLibrary(GfxBase);
  92.  
  93.   exit(how);
  94. }
  95.  
  96.  
  97. int point(struct BitMap *bm, short x, short y)
  98. {
  99.   int plane, pen;
  100.  
  101.   for(plane= pen= 0; plane < bm->Depth; plane++)
  102.   {
  103.     UBYTE b= ((UBYTE *)(bm->Planes[plane]))[y * bm->BytesPerRow + x/8];
  104.  
  105.     if( b & (1<<(7-(x%8))) )
  106.       pen += (1<<plane);
  107.   }
  108.  
  109.   return pen;
  110. }
  111.  
  112.  
  113. int magic(struct BitMap *bm, short x, short y)
  114. {
  115.   int m= 0;
  116.  
  117.   if( point(bm, x+0,y+0) ) m += (1<<0);
  118.   if( point(bm, x+1,y+0) ) m += (1<<1);
  119.   if( point(bm, x+0,y+1) ) m += (1<<2);
  120.   if( point(bm, x+1,y+1) ) m += (1<<3);
  121.   if( point(bm, x+0,y+2) ) m += (1<<4);
  122.   if( point(bm, x+1,y+2) ) m += (1<<5);
  123.  
  124.   return m;
  125. }
  126.  
  127.  
  128. void PrBitMapASCII(FILE *fp, struct BitMap *bm)
  129. {
  130.   /* The Conversion Table is inspired by Jorn Barger's alt.ascii-art FAQ
  131.      which had the table by Rob Harley(robert@vlsi.cs.caltech.edu) in it. */
  132.  
  133.   static char ctab[64]= " `'~-!/f-\\!V=+Y*.|/7i[/Pv)/ZzDZA,\\!Tct(5i\\]YeN4M_L2XsbKKgGd8mWW@";
  134.   short x,y;
  135.  
  136.   char *lbuf= malloc( 4 * bm->BytesPerRow + 2 );
  137.  
  138.   if(lbuf)
  139.   {
  140.     for(y=0; y<bm->Rows; y+=3)
  141.     {
  142.       char *s, *t;
  143.  
  144.       for(s= t= lbuf, x=0; x < 8*bm->BytesPerRow; x+=2)
  145.       {
  146.         int m= magic(bm, x,y);
  147.         *s++ = ctab[m];
  148.         if(m) t=s;
  149.       }
  150.  
  151.       *t++ = '\n';
  152.       *t++ = '\0';
  153.  
  154.       fputs(lbuf,fp);
  155.     }
  156.     free(lbuf);
  157.   }
  158.  
  159.   else /* no mem -> hyper slow ;) */
  160.   {
  161.     for(y=0; y<bm->Rows; y+=3)
  162.     {
  163.       for(x=0; x < 8*bm->BytesPerRow; x+=2)
  164.       {
  165.         fputc(ctab[magic(bm,x,y)],fp);
  166.       }
  167.       fputc('\n',fp);
  168.     }
  169.   }
  170. }
  171.